home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas4.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  488 b   |  14 lines
  1. ;; Canvas item stacking
  2. ;; Use mouse button 1 to put a square on top of stack
  3. (canvas '.c3)
  4. (pack .c3 :fill "both" :expand #t)
  5.  
  6. (define r1 (.c3 'create 'rectangle 20 20 80 80 :fill "red"))
  7. (define r2 (.c3 'create 'rectangle 60 60 120 120 :fill "green"))
  8. (define r3 (.c3 'create 'rectangle 40 40 100 100 :fill "blue"))
  9.  
  10. (.c3 'bind r1 "<Button-1>" (lambda () (.c3 'raise r1)))
  11. (.c3 'bind r2 "<Button-1>" (lambda () (.c3 'raise r2)))
  12. (.c3 'bind r3 "<Button-1>" (lambda () (.c3 'raise r3)))
  13.  
  14.